﻿Imports TarjetaA
Partial Class Reportes_TarjetasARepote
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim animal As String
        Dim Ruta As String
        animal = CType(Session.Item("animal"), String)

        
        Ruta = Server.MapPath("~/photos/Galeria/")



        Dim reporteResumen As New TarjetaA
        WebViewerResumen.Report = reporteResumen
        reporteResumen.Parameters("parameter1").Value = animal
        reporteResumen.Parameters("parameter2").Value = Ruta
    End Sub
End Class
